Imports System.Xml
Imports System.Data.SqlClient
Public Class dAsignacionesDeRemitos
    Public Function Existe(ByVal idAsignacionesDeRemitos As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If idAsignacionesDeRemitos <> "" Then
            Parametros.Add(New SqlParameter("@pEidAsignacionesDeRemitos", idAsignacionesDeRemitos))
        End If
        Return (dConexion.Consultar("STORE_TblAsignacionesDeRemitosBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal IdTalonario As String, ByVal Legajo As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If IdTalonario <> "" Then
            Parametros.Add(New SqlParameter("@pEIdTalonario", IdTalonario))
        End If
        If Legajo <> "" Then
            Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        End If
        Return dConexion.ABM("STORE_TblAsignacionesDeRemitosALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal idAsignacionesDeRemitos As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If idAsignacionesDeRemitos <> "" Then
            Parametros.Add(New SqlParameter("@pEidAsignacionesDeRemitos", idAsignacionesDeRemitos))
        End If
        Return dConexion.ABM("STORE_TblAsignacionesDeRemitosELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal idAsignacionesDeRemitos As String, ByVal FechaDeAlta As String, ByVal FechaDeBaja As String, ByVal IdTalonario As String, ByVal Legajo As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If idAsignacionesDeRemitos <> "" Then
            Parametros.Add(New SqlParameter("@pEidAsignacionesDeRemitos", idAsignacionesDeRemitos))
        End If
        If FechaDeAlta <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaDeAlta", FechaDeAlta))
        End If
        If FechaDeBaja <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaDeBaja", FechaDeBaja))
        End If
        If IdTalonario <> "" Then
            Parametros.Add(New SqlParameter("@pEIdTalonario", IdTalonario))
        End If
        If Legajo <> "" Then
            Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        End If
        Return dConexion.ABM("STORE_TblAsignacionesDeRemitosMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal idAsignacionesDeRemitos As String, ByVal FechaDeAlta As String, ByVal FechaDeBaja As String, ByVal IdTalonario As String, ByVal Legajo As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If idAsignacionesDeRemitos <> "" Then
            Parametros.Add(New SqlParameter("@pEidAsignacionesDeRemitos", idAsignacionesDeRemitos))
        End If
        If FechaDeAlta <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaDeAlta", FechaDeAlta))
        End If
        If FechaDeBaja <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaDeBaja", FechaDeBaja))
        End If
        If IdTalonario <> "" Then
            Parametros.Add(New SqlParameter("@pEIdTalonario", IdTalonario))
        End If
        If Legajo <> "" Then
            Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        End If
        Return dConexion.Consultar("STORE_TblAsignacionesDeRemitosBUSCARFILTRADO", Parametros)
    End Function
End Class
